home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 27
/
027.d81
/
strings menu
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
750b
|
28 lines
10 rem strings menu
20 poke53280,6:poke53281,13
30 print"[147][144]"spc(10)"[211]trings [193]ttached [205]enu"
35 print" [215]hat would you like to do?"
40 print" 1 ==> [210][213][206] the [211][212][210][201][206][199][211]-1 program?"
42 print" 2 ==> [210][213][206] the [211][212][210][201][206][199][211]-2 program?"
46 print" 3 ==> [210][197][212][213][210][206][160][212][207][160][204][207][193][196][211][212][193][210]?"
47 gosub100
48 :
50 print"[215]hich? ";
52 poke198,0:wait198,1:geta$
54 ifa$<>"1"anda$<>"2"anda$<>"3"then52
55 :
60 printa$
62 ifa$="1"thenf$="strings.1"
64 ifa$="2"thenf$="strings.2"
68 ifa$="3"thenf$="hello connect":open15,8,15,"r0:star=star":input#15,er:close15
70 :
73 ifa$="3"ander<>63thenend
80 print"[147]"spc(11)"[204]oading program..."
82 :
85 print"[153]loadf$,8":print"run":poke631,13:poke632,13:poke198,2:end
90 :
100 forx=1to40:a$=a$+"*":next:a$=left$(a$,40)
110 print""a$;:fori=1to23:print"*"spc(38)"*";:next:printleft$(a$,39)""
120 poke2023,42:poke56295,peek(55296)
130 return